object frmWelcomeWizard: TfrmWelcomeWizard Left = 137 Top = 114 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'frmWelcomeWizard' ClientHeight = 298 ClientWidth = 471 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object cmdFinish: TButton Left = 409 Top = 273 Width = 54 Height = 21 Caption = '&Finish' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 end object cmdNext: TButton Left = 350 Top = 273 Width = 54 Height = 21 Caption = '&Next>' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = cmdNextClick end object cmdBack: TButton Left = 296 Top = 273 Width = 54 Height = 21 Caption = '<&Back' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = cmdBackClick end object cmdCancel: TButton Left = 234 Top = 273 Width = 54 Height = 21 Cancel = True Caption = 'Cancel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 3 end object cmdHelp: TButton Left = 166 Top = 273 Width = 54 Height = 21 Caption = '&Help' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = cmdHelpClick end object PageControl1: TPageControl Left = 6 Top = 5 Width = 459 Height = 262 ActivePage = TabSheet4 TabOrder = 5 object TabSheet1: TTabSheet Caption = 'TabSheet1' TabVisible = False object Shape1: TShape Left = 24 Top = 8 Width = 403 Height = 46 Brush.Color = clMaroon Pen.Style = psClear end object Label15: TLabel Left = 65 Top = 20 Width = 321 Height = 29 Caption = 'Welcome to Crowd Control!' Color = clNone Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object lblTitle: TLabel Left = 62 Top = 16 Width = 321 Height = 29 Caption = 'Welcome to Crowd Control!' Color = clNone Font.Color = clYellow Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label1: TLabel Left = 31 Top = 78 Width = 386 Height = 39 Caption = 'Crowd Control will help you set up Windows 95 user accounts for ' + 'each user of your computer. Each user can have their own deskto' + 'p, start menu and program folder. ' WordWrap = True end object Label2: TLabel Left = 31 Top = 127 Width = 385 Height = 39 Caption = 'In addition, you can place restrictions on users to control use ' + 'of the computer and minimize the risk that other users will acci' + 'dently delete important files or configuration settings.' WordWrap = True end object Label3: TLabel Left = 31 Top = 180 Width = 385 Height = 41 AutoSize = False Caption = 'Crowd Control will start by creating a user account for you. To' + ' continue, click the Next button. If you do not want to install' + ' Crowd Control, click the Cancel button.' WordWrap = True end end object PageName: TTabSheet Caption = 'PageName' TabVisible = False object Label4: TLabel Left = 32 Top = 32 Width = 377 Height = 49 AutoSize = False Caption = 'Enter your name below. You will be required to enter this name ' + 'and a password when logging on to Windows. You will be prompted' + ' to provide a password the first time you log on.' WordWrap = True end object Label5: TLabel Left = 32 Top = 127 Width = 17 Height = 13 Caption = 'TIP' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 62 Top = 127 Width = 342 Height = 13 Caption = 'A short name (for instance first name only) is easier to type an' + 'd remember' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label10: TLabel Left = 32 Top = 168 Width = 161 Height = 13 Caption = 'To continue, click the Next button' end object txtName: TEdit Left = 32 Top = 99 Width = 169 Height = 21 TabOrder = 0 end end object TabSheet3: TTabSheet Caption = 'TabSheet3' TabVisible = False object bevelIcon: TBevel Left = 37 Top = 66 Width = 38 Height = 38 Style = bsRaised end object Label7: TLabel Left = 24 Top = 19 Width = 356 Height = 26 Caption = 'Select an icon that will be displayed on the desktop for your pr' + 'ogram folder. This icon is also used to identify you in Crowd C' + 'ontrol.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object imgUserIcon: TImage Left = 40 Top = 69 Width = 32 Height = 32 end object Label8: TLabel Left = 27 Top = 227 Width = 17 Height = 13 Caption = 'TIP' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 55 Top = 226 Width = 354 Height = 26 Caption = 'Click Browse to select an icon file in another directory on your' + ' hard drive' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object cmdBrowseIcon: TButton Left = 29 Top = 116 Width = 54 Height = 21 Caption = 'Browse' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = False end object lstviewIcons: TFileView Left = 116 Top = 60 Width = 265 Height = 159 Columns = <> ReadOnly = True OnChange = lstviewIconsChange TabOrder = 1 LargeImages = lstviewIcons. SmallImages = lstviewIcons. end end object TabSheet4: TTabSheet Caption = 'TabSheet4' TabVisible = False object Shape2: TShape Left = 374 Top = 2 Width = 65 Height = 249 Brush.Color = clMaroon Pen.Style = psClear end object Label14: TLabel Left = 396 Top = 23 Width = 25 Height = 210 Alignment = taCenter Caption = 'F I N I S H' Font.Color = clBlack Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Label12: TLabel Left = 17 Top = 20 Width = 301 Height = 52 Caption = 'Those are all the answers the Wizard needs to create your user a' + 'ccount. Click the Finish button to continue. It may take a min' + 'ute or two for the Wizard to complete setting up Crowd Control.' WordWrap = True end object Label19: TLabel Left = 17 Top = 84 Width = 317 Height = 52 Caption = 'Crowd Control will set up your user account with no restrictions' + ' and will use the current Windows Start menu and Programs folder' + '. To log on to your new account, restart Windows and enter your' + ' name and a password at the Windows logon prompt. ' WordWrap = True end object Label11: TLabel Left = 393 Top = 19 Width = 25 Height = 210 Alignment = taCenter Caption = 'F I N I S H' Font.Color = clYellow Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Label13: TLabel Left = 17 Top = 160 Width = 331 Height = 67 AutoSize = False Caption = 'WARNING! Crowd Control is a powerful tool. If not used careful' + 'ly, it can lock you out of your system or prevent you from makin' + 'g changes to your system. It is important that at least one use' + 'r not have any restrictions for using the computer.' WordWrap = True end end end end